home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmfg.dir / Internal_37_eatingNoEffect.ls < prev    next >
Encoding:
Text File  |  2001-09-03  |  508 b   |  22 lines
  1. property responsDone, responsTime
  2. global gmObject, sndObject
  3.  
  4. on beginSprite me
  5.   responsDone = 0
  6.   responsTime = sprite(me.spriteNum).member.frameCount - (sprite(me.spriteNum).member.frameCount / 4)
  7. end
  8.  
  9. on exitFrame me
  10.   if responsDone = 0 then
  11.     if the mouseDown = 0 then
  12.       if sprite(me.spriteNum).frame > responsTime then
  13.         sndObject.respondSnd(2, 3, 1, 1)
  14.         responsDone = 1
  15.       end if
  16.     end if
  17.   end if
  18.   if sprite(me.spriteNum).playing = 0 then
  19.     gmObject.goBack()
  20.   end if
  21. end
  22.